< previous page page_110 next page >

Page 110
Puzzle 24
Callback That String
From a reader:
7017a6ead0e3c4111b47a554df321e9f.gif 7017a6ead0e3c4111b47a554df321e9f.gif
In my VB5 Programmer's Guide to Win32 API, the function EnumSystemLocales is listed, but my application keeps crashing whenever I try to implement it. I'm using the following code
7017a6ead0e3c4111b47a554df321e9f.gif 7017a6ead0e3c4111b47a554df321e9f.gif
A standard module contains:
7017a6ead0e3c4111b47a554df321e9f.gif
' Locales Puzzle
' Copyright © 1998 by Desaware Inc. All Rights Reserved

Option Explicit

Public Declare Function EnumSystemLocales Lib "kernel32" Alias _
"EnumSystemLocalesA" (ByVal lpLocaleEnumProc As Long, ByVal _
dwFlags As Long) As Long

Public Const LCID_INSTALLED = &H1 ' installed Locale ids

Public Function EnumLocalesProc(ByVal Locale As String) As Boolean
   Debug.Print Locale
   EnumLocalesProc = True
End Function
7017a6ead0e3c4111b47a554df321e9f.gif 7017a6ead0e3c4111b47a554df321e9f.gif
A form contains:
7017a6ead0e3c4111b47a554df321e9f.gif
' Locale Example
' Copyright © 1998 by Desaware Inc. All Rights Reserved

Option Explicit

Private Sub Command1_Click()
   Dim lRet As Long
   lRet = EnumSystemLocales(AddressOf EnumLocalesProc, LCID_INSTALLED)
End Sub

 
< previous page page_110 next page >